﻿Public Class ZugangAbgangFRM

#Region " D e k l a r a t i o n e n "
    Public Aktion As ZugangAbgang
#End Region

#Region " ButtonAbgang_Click-Ereignis "
    Private Sub ButtonAbgang_Click(sender As Object, e As EventArgs) Handles ButtonAbgang.Click
        Aktion = ZugangAbgang.Abgang
        Me.DialogResult = DialogResult.OK
    End Sub
#End Region

#Region " ButtonZugang_Click-Ereignis "
    Private Sub ButtonZugang_Click(sender As Object, e As EventArgs) Handles ButtonZugang.Click
        Aktion = ZugangAbgang.Zugang
        Me.DialogResult = DialogResult.OK
    End Sub
#End Region

End Class